home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 41 / 041.d81 / sounds of qlink (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  199 lines
  1. 0 print"[147]":poke53274,.:sys65418
  2. 1 ifa=.thenpoke55,0:poke56,63:clr:a=1
  3. 5 ifa=1thena=2:load"routines v4",8,1
  4. 6 ifa=2thena=3:load"sid.obj",8,1
  5. 7 ifa=3thena=4:load"raster stuff.o",8,1
  6. 10 fr$="":la$="":ov$=""
  7. 11 ns=10:dim na$(ns),fi$(ns)
  8. 12 sa=780:sx=781:sy=782
  9. 15 su=51206:sd=51209:rem scroll up&down
  10. 16 poke1020,10:poke1021,16:poke1022,7:poke1023,31:rem    scroll boundaries
  11. 20 gosub1000:rem     title screen
  12. 30 gosub1500:rem       main menu
  13. 40 gosub2000:rem  print names of music
  14. 50 gosub3000:rem scroll menu and select
  15. 60 gosub100 :rem clear window
  16. 64 print"are you sure you want to quit? (y/n)":poke198,.
  17. 66 a=peek(203):ifa<>25anda<>39then66
  18. 68 ifa=39thengosub2020:goto50
  19. 70 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  20. 72 ifer<>63thenprint"[147]":end
  21. 74 load"hello connect",8
  22. 90 print"":stop
  23. 100 printla$""
  24. 110 fora=1to5:print"                                    "
  25. 120 next:print"[145][145][145][145][145][145]"
  26. 130 return
  27. 1000 poke53280,14:poke53281,1
  28. 1010 printchr$(142)"[147]";
  29. 1012 fora=1to5:
  30. 1013 print"[154]                                        ";
  31. 1014 next
  32. 1015 print"[154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  33. 1020 fora=.to14:print"[154][221]                                      [221]";:next
  34. 1030 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
  35. 1032 fora=1to2:
  36. 1033 print"[154]                                        ";
  37. 1034 next
  38. 1035 print"                                       [157][148] "
  39. 1040 fora=217to242:pokea,peek(a)or128:next
  40. 1050 print"[149][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  41. 1060 print"[165]loadstar presents:[170] "
  42. 1070 print"[149][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] "
  43. 1080 print"                    "
  44. 1090 print"[144][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  45. 1100 fora=1to5
  46. 1110 print"[144][165]                        [167] "
  47. 1120 next
  48. 1130 print"[144][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] "
  49. 1135 print"                          "
  50. 1140 print"[145][145][145][145][145][145][145]sounds of q-link"
  51. 1150 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  52. 1160 print"[156]top-notch tunes from"
  53. 1170 print"the users of q-link."
  54. 1180 print"[150][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  55. 1190 print"[165]     sounds of qlink player   [167] "
  56. 1191 print"[150][165]        by: mike maynard      [167] "
  57. 1192 print"[150][165]    copyright 1987, loadstar  [167] "
  58. 1200 print"[150][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] "
  59. 1210 print"                                "
  60. 1220 fora=1tons:read na$(a),fi$(a):next
  61. 1230 print"[149]  press space to continue  [154]":poke198,.
  62. 1240 ifpeek(203)<>60then1240
  63. 1250 return
  64. 1500 print"[149][165]                  [167]"
  65. 1510 print"[165] sounds of q-link [167] "
  66. 1520 print"[149][165] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [167] "
  67. 1530 print"[154]         [149][165]  copyright 1987  [167] [154]         "
  68. 1535 mm=1263:pokemm,160:poke54272+mm,14
  69. 1540 print"[154]         [149][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] [154]         "
  70. 1545 mm=mm+40:pokemm,160:poke54272+mm,14
  71. 1550 print"[154]                              [154]       "
  72. 1555 mm=mm+40:pokemm,160:poke54272+mm,14
  73. 1560 print"[154] sounds of qlink player by mike maynard"
  74. 1565 mm=mm+40:pokemm,160:poke54272+mm,14
  75. 1570 print"[154] [146][129][146][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  76. 1575 mm=mm+40:pokemm,160
  77. 1580 fora=1to7
  78. 1590 print"[154] [129][146][165]                                    [167]"
  79. 1595 mm=mm+40:pokemm,160:poke54272+mm,6
  80. 1597 ifa=4thenprint"[145][144]--->"tab(34)"<---"
  81. 1600 next
  82. 1610 print"[154] [129][146][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  83. 1615 mm=mm+40:pokemm,160:poke54272+mm,6
  84. 1620 fora=1to5
  85. 1630 print"[154] [129][146][165]                                    [167]"
  86. 1635 mm=mm+40:pokemm,160:poke54272+mm,6
  87. 1640 next
  88. 1650 print"[154] [146][129][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  89. 1655 mm=mm+40:pokemm,160:poke54272+mm,6
  90. 1660 print"[154]                                       "
  91. 1665 mm=mm+40:pokemm,160:poke54272+mm,6
  92. 1670 fora=217to242:pokea,peek(a)or128:next
  93. 1680 return
  94. 2000 printfr$;
  95. 2010 fora=1to7:printov$"[156]"na$(a):next
  96. 2015 se=4:rem  current selection
  97. 2016 ls$="":rem clear last selection
  98. 2020 gosub100:printla$"use crsr keys to scroll the music."
  99. 2030 print"press [return] to hear the music    "
  100. 2040 print"that the arrows point at."
  101. 2050 print"f1 - play all ............ f7 - quit"
  102. 2060 return
  103. 3000 poke198,.:ab=.:pa=.
  104. 3005 b=peek(653):a=peek(203):ifa<>7anda<>2anda<>4anda<>3anda<>1then3000
  105. 3010 if((b=.)and(a=2))or((b)and(a=7))then gosub3100:goto3000
  106. 3020 if((b=.)and(a=7))or((b)and(a=2))then gosub3200:goto3000
  107. 3030 if(a=1)then4000:rem  play selected
  108. 3040 if(a=4)then4100:rem  play all
  109. 3050 if(a=3)then return:rem  quit
  110. 3060 goto3000
  111. 3100 se=se-1:ifse=.thense=ns
  112. 3110 tp=se-3:iftp<1thentp=ns+tp
  113. 3120 syssd:poke648,216:syssd:poke648,4:printfr$ov$"[156]"na$(tp)
  114. 3130 return
  115. 3200 se=se+1:ifse=ns+1thense=1
  116. 3210 bo=se+3:ifbo>nsthenbo=bo-ns
  117. 3220 syssu:poke648,216:syssu:poke648,4:printla$ov$"[156]"na$(bo)
  118. 3230 return
  119. 3999 rem      play music (pl)
  120. 4000 pl=se
  121. 4010 gosub6000:rem    load music
  122. 4020 gosub7000:rem    play music
  123. 4030 gosub6500:rem  display credits
  124. 4040 goto3000
  125. 4097 :
  126. 4098 :
  127. 4099 rem     play all music
  128. 4100 mm=se:pa=-1:forzz=setons
  129. 4110 pl=zz
  130. 4120 gosub6000:rem    load music
  131. 4130 gosub7000:rem    play music
  132. 4140 gosub6500:rem  display credits
  133. 4150 gosub3200
  134. 4155 if(ab)thengosub2020:goto3000
  135. 4160 next:if(mm=1)or(ab)thengosub2020:goto3000
  136. 4170 forzz=1tomm-1
  137. 4180 pl=zz
  138. 4190 gosub6000:rem     load music
  139. 4200 gosub7000:rem     play music
  140. 4210 gosub6500:rem   display credits
  141. 4220 gosub3200:rem  advance selector
  142. 4225 if(ab)thengosub2020:goto3000
  143. 4230 next:gosub2020:goto3000
  144. 6000 ifls$=fi$(pl)thenreturn
  145. 6001 ls$=fi$(pl)
  146. 6003 gosub100:li$="loading "+na$(pl):li=len(li$):ta=20-li/2
  147. 6005 print""tab(ta)li$
  148. 6010 pokesa,1:pokesx,8:pokesy,.:sys65466
  149. 6020 fork=1tolen(fi$(pl))
  150. 6030 poke584+k,asc(mid$(fi$(pl),k)):next
  151. 6040 pokesa,len(fi$(pl)):pokesx,73:pokesy,2:sys65469
  152. 6050 pokesa,.:pokesx,.:pokesy,64:sys65493
  153. 6060 ea=peek(sx)+peek(sy)*256
  154. 6070 return
  155. 6500 gosub100:fora=eato16384step-1
  156. 6510 if(peek(a)=79)and(peek(a-1)=1)thencr=a+1:a=16384
  157. 6520 next:gosub100:sys16130
  158. 6525 gosub100:print"";:he=.:ad=.
  159. 6530 printchr$(peek(cr+ad));:ifpeek(cr+ad)=13thenprint"";
  160. 6540 ad=ad+1:ifpeek(cr+ad)<>.then6530
  161. 6550 poke198,.
  162. 6555 print"[154]          press "chr$(34)"h"chr$(34)" for help.          "
  163. 6560 ke=peek(203):if(key=29)or(key=60)or(key=10)or(key=62)then6562
  164. 6561 ifpeek(49152)<>0then6560
  165. 6562 if(key=6